﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities
Imports DataAccessLayer
    Partial Class ModificarIngeniero
        Inherits System.Web.UI.Page

        Dim miservicio As New UsuarioDAO

        Dim str_error As String
        Dim str_mensaje As String
        Public Shared str_modo As String
        Public Shared str_cliente As String

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            If Not Page.IsPostBack Then
                With ddpEtapa
                    .DataSource = miservicio.getArea
                    .DataTextField = "NOM_ARE"
                    .DataValueField = "COD_ARE"
                    .DataBind()
                End With

                With ddpEstado
                    .DataSource = miservicio.getCargo
                    .DataTextField = "NOM_CAR"
                    .DataValueField = "COD_CAR"
                    .DataBind()
                End With
            End If

            If Not Page.IsPostBack Then

                With ddpEtapa
                    .DataSource = miservicio.getArea
                    .DataTextField = "NOM_ARE"
                    .DataValueField = "COD_ARE"
                    .DataBind()
                End With

                With ddpEstado
                    .DataSource = miservicio.getCargo
                    .DataTextField = "NOM_CAR"
                    .DataValueField = "COD_CAR"
                    .DataBind()
                End With

                'Recuperamos los parámetros enviados por la página Mantenimiento.aspx
                str_modo = Request.QueryString("modo")
                str_cliente = Request.QueryString("cliente")

                'Cargamos el DropDownList de distritos
                '    'Pintamos la data actual
                Dim capanegocios As New UsuarioBL
                Dim objeto As New BE.UsuarioDTO

                Try
                    '        'Llenamos la propiedad de la entidad ClienteBE 
                    objeto.CodigoUsuario = str_cliente

                    txtnombre.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                         Tables("DatosProyecto").Rows(0).Item(1))

                    txtapellidopaterno.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                         Tables("DatosProyecto").Rows(0).Item(2))

                    txtapellidomaterno.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                         Tables("DatosProyecto").Rows(0).Item(3))

                    txtid.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                         Tables("DatosProyecto").Rows(0).Item(4))
                    txtpass.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(5))
                    txtprofesion.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(6))
                    txtemail.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(7))
                    txtdireccion.Text = Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(9))

                    ddpEtapa.Items.FindByValue(Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(10))).Selected = True

                    ddpEstado.Items.FindByValue(Convert.ToString(capanegocios.DatosUsuario(objeto). _
                                                        Tables("DatosProyecto").Rows(0).Item(11))).Selected = True


                Catch ex As Exception
                    str_error = ex.Message
                    Response.Redirect("Errores.aspx?id=" & str_error)
                Finally
                    capanegocios = Nothing
                    objeto = Nothing
                End Try


            End If
        End Sub

        Protected Sub btnProcesar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProcesar.Click
            Dim capanegocios As New UsuarioBL
            Dim objeto As New BE.UsuarioDTO

            Try

                objeto.CodigoUsuario = str_cliente

                objeto.Nombre = txtnombre.Text
                objeto.ApellidoUsuario = txtapellidopaterno.Text
                objeto.ApellidoUsuariomat = txtapellidomaterno.Text
                objeto.IdUsuario = txtid.Text
                objeto.PasswordUsuario = txtpass.Text
                objeto.profesiones = txtprofesion.Text
                objeto.emails = txtemail.Text
                objeto.dir = txtdireccion.Text
                objeto.CodigoArea = ddpEtapa.SelectedItem.Value.ToString
                objeto.CodigoCargo = ddpEtapa.SelectedItem.Value.ToString


                If capanegocios.ActualizarUsuario(objeto) Then
                    str_mensaje = "Usuario actualizado con éxito"
                    Dim script As String = "<script language=Javascript>"
                    script += "alert('" & str_mensaje & "');"
                    script += "</script>"
                    Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                Else
                    str_mensaje = "No se actualizó los datos del Usuario"
                    Dim script As String = "<script language=Javascript>"
                    script += "alert('" & str_mensaje & "');"
                    script += "</script>"
                    Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)
                End If

            Catch ex As Exception
                str_error = capanegocios.CapturaError

                Response.Redirect("Errores.aspx?id=" & str_error)
            Finally
                capanegocios = Nothing
                objeto = Nothing
        End Try

        Response.Redirect("ListadoIngeniero.aspx")
        End Sub

        Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Response.Redirect("ListarIngeniero.aspx")
        End Sub
    End Class

